home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dbtnw / dbtnw.exe / DBtn.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-02-02  |  2.7 KB  |  95 lines
  1. VERSION 5.00
  2. Object = "{B878E0B1-E00A-11D0-9928-00C04FD8DC2E}#1.0#0"; "DBtn.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DameWare Btn Sample"
  5.    ClientHeight    =   2610
  6.    ClientLeft      =   585
  7.    ClientTop       =   1065
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2610
  11.    ScaleWidth      =   4680
  12.    Begin VB.CommandButton Command2 
  13.       Caption         =   "AboutBox"
  14.       Height          =   375
  15.       Left            =   840
  16.       TabIndex        =   6
  17.       Top             =   2040
  18.       Width           =   1095
  19.    End
  20.    Begin VB.TextBox Text2 
  21.       Height          =   315
  22.       Left            =   2280
  23.       TabIndex        =   3
  24.       Top             =   1440
  25.       Width           =   495
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       Height          =   315
  29.       Left            =   1440
  30.       TabIndex        =   2
  31.       Top             =   1440
  32.       Width           =   495
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       Caption         =   "Properties"
  36.       Height          =   375
  37.       Left            =   3000
  38.       TabIndex        =   1
  39.       Top             =   2040
  40.       Width           =   975
  41.    End
  42.    Begin DBTNLibCtl.DBtnCtrl DBtnCtrl1 
  43.       Height          =   615
  44.       Left            =   480
  45.       TabIndex        =   0
  46.       Top             =   600
  47.       Width           =   3615
  48.       BorderVisible   =   -1  'True
  49.       TabStop         =   -1  'True
  50.       PictureNormal   =   "DBtn.frx":0000
  51.       PictureHover    =   "DBtn.frx":12F8
  52.       PicturePush     =   "DBtn.frx":2829
  53.       PictureURLNormal=   ""
  54.       PictureURLHover =   ""
  55.       PictureURLPush  =   ""
  56.       Sound           =   1
  57.       SoundURLClick   =   "Laser.wav"
  58.       SoundURLHover   =   "Whoosh.wav"
  59.       ButtonType      =   0
  60.       KeepAspect      =   1
  61.    End
  62.    Begin VB.Label Label2 
  63.       Alignment       =   1  'Right Justify
  64.       Caption         =   "y="
  65.       Height          =   375
  66.       Left            =   1920
  67.       TabIndex        =   5
  68.       Top             =   1440
  69.       Width           =   255
  70.    End
  71.    Begin VB.Label Label1 
  72.       Alignment       =   1  'Right Justify
  73.       Caption         =   "x="
  74.       Height          =   375
  75.       Left            =   1080
  76.       TabIndex        =   4
  77.       Top             =   1440
  78.       Width           =   255
  79.    End
  80. Attribute VB_Name = "Form1"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Private Sub Command1_Click()
  86. DBtnCtrl1.Properties
  87. End Sub
  88. Private Sub Command2_Click()
  89. DBtnCtrl1.AboutBox
  90. End Sub
  91. Private Sub DBtnCtrl1_OnClick(ByVal x As Long, ByVal y As Long)
  92. Text1.Text = x
  93. Text2.Text = y
  94. End Sub
  95.